home *** CD-ROM | disk | FTP | other *** search
- object SelSessionForm: TSelSessionForm
- Left = 379
- Top = 251
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Select session'
- ClientHeight = 277
- ClientWidth = 362
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poMainFormCenter
- OnCreate = FormCreate
- DesignSize = (
- 362
- 277)
- PixelsPerInch = 96
- TextHeight = 13
- object btnNext: TButton
- Left = 281
- Top = 245
- Width = 75
- Height = 25
- Action = aFormState
- Anchors = [akBottom]
- Default = True
- TabOrder = 0
- end
- object gbSessionList: TGroupBox
- Left = 6
- Top = 1
- Width = 350
- Height = 120
- Caption = ' List of existing sessions: '
- TabOrder = 2
- object lvSessionList: TListView
- Left = 9
- Top = 16
- Width = 332
- Height = 95
- Columns = <
- item
- AutoSize = True
- Caption = 'Session'
- MaxWidth = 140
- MinWidth = 140
- end
- item
- Alignment = taRightJustify
- Caption = 'Start'
- MaxWidth = 75
- MinWidth = 75
- Width = 75
- end
- item
- Alignment = taRightJustify
- Caption = 'Size'
- MaxWidth = 90
- MinWidth = 90
- Width = 90
- end>
- ColumnClick = False
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- TabOrder = 0
- ViewStyle = vsReport
- OnMouseUp = lvSessionListMouseUp
- end
- end
- object btnCansel: TButton
- Left = 187
- Top = 245
- Width = 75
- Height = 25
- Anchors = [akBottom]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object gb_DiskInfo: TGroupBox
- Left = 8
- Top = 175
- Width = 350
- Height = 63
- Anchors = [akBottom]
- Caption = ' Disk info: '
- TabOrder = 3
- object EmptySizePanel: TPanel
- Left = 181
- Top = 14
- Width = 160
- Height = 20
- BevelOuter = bvLowered
- TabOrder = 0
- object EmptySizeInfo: TLabel
- Left = 1
- Top = 1
- Width = 158
- Height = 18
- Align = alClient
- Alignment = taCenter
- Caption = ' -- --'
- Layout = tlCenter
- end
- end
- object DiskSizePanel: TPanel
- Left = 9
- Top = 14
- Width = 160
- Height = 20
- BevelOuter = bvLowered
- Caption = 'Panel1'
- TabOrder = 1
- object DiskSize: TLabel
- Left = 1
- Top = 1
- Width = 158
- Height = 18
- Align = alClient
- Alignment = taCenter
- Caption = ' -- --'
- Layout = tlCenter
- end
- end
- object MediumTypePanel: TPanel
- Left = 9
- Top = 35
- Width = 160
- Height = 20
- BevelOuter = bvLowered
- TabOrder = 2
- object MediumType: TLabel
- Left = 1
- Top = 1
- Width = 158
- Height = 18
- Align = alClient
- Alignment = taCenter
- Caption = ' -- --'
- Layout = tlCenter
- end
- end
- object UsedSpacePanel: TPanel
- Left = 181
- Top = 35
- Width = 160
- Height = 20
- BevelOuter = bvLowered
- TabOrder = 3
- object UsedSpace: TLabel
- Left = 1
- Top = 1
- Width = 158
- Height = 18
- Align = alClient
- Alignment = taCenter
- Caption = ' -- --'
- Layout = tlCenter
- end
- end
- end
- object m_gbDrives: TGroupBox
- Left = 8
- Top = 125
- Width = 350
- Height = 46
- Anchors = [akBottom]
- Caption = ' Drive: '
- TabOrder = 4
- object cbDrives: TComboBox
- Left = 8
- Top = 16
- Width = 333
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnSelect = cbDrivesSelect
- end
- end
- object btnRefresh: TButton
- Left = 95
- Top = 245
- Width = 75
- Height = 25
- Caption = 'Refresh'
- TabOrder = 5
- OnClick = btnRefreshClick
- end
- object alStatus: TActionList
- Left = 8
- Top = 244
- object aFormState: TAction
- Caption = 'Import'
- OnExecute = btnNextClick
- OnUpdate = aFormStateUpdate
- end
- end
- object MCDBurner: TMCDBurner
- DeviceBufferSize = 0
- DeviceFreeBufferSize = 0
- UnderrunProtection = True
- DoDebug = True
- ReadSpeed = 0
- WriteSpeed = 0
- FinalizeDisc = False
- TestWrite = False
- ReplaceFile = False
- PerformOPC = False
- CacheSize = 4194304
- Version = '1.21'
- WritePostGap = True
- Left = 40
- Top = 244
- end
- object smlFormLangRes: TsmlFormLangRes
- LangFileName = 'DefLang.ini'
- IgnoreEmptyString = False
- AutoCreateMode = True
- AddBracket = True
- StringProperties.Strings = (
- 'Caption')
- StringsProperties.Strings = (
- 'Tabs'
- 'Items')
- IgnoreControls.Strings = (
- 'EmptySizePanel'
- 'MediumTypePanel'
- 'DiskSizePanel'
- 'UsedSpacePanel'
- 'cbDrives'
- 'EmptySizeInfo'
- 'DiskSize'
- 'MediumType'
- 'UsedSpace'
- 'btnNext')
- IgnoreFormCaption = False
- IncludeListViewItems = False
- IncludeListViewHead = True
- IncludeTreeViewItems = False
- Active = False
- Left = 24
- Top = 32
- end
- object smlMsgLangRes: TsmlMsgLangRes
- LangFileName = 'DefLang.ini'
- IgnoreEmptyString = True
- AutoCreateMode = True
- AddBracket = True
- MsgList.Strings = (
- 'Str0=ASPI initialisation error'
- 'Str1=Error'
-
- 'Str2=The selected drive is unable to burn CD/DVDs. Please select' +
- ' another one.'
-
- 'Str3=Drive is busy. Wait until it is free or select another driv' +
- 'e.'
-
- 'Str4=Drive is not ready. It is possibly busy or disc is not inse' +
- 'rted.'
- 'Str5=Unable to extract sessions information'
- 'Str6=Free'
- 'Str7=Full capacity'
- 'Str8=Used'
- 'Str9=Medium type'
- 'Str10=Not enough space to continue session.'
- 'Str11=Medium in drive is empty'
- 'Str12=Session')
- Active = False
- Left = 56
- Top = 32
- end
- end
-